10 :
20 :REM LOAD SINUS FILES
30 :
40 POKE56,62:CLR
50 DV=PEEK(186):IFDV<8THENDV=8
60 SYS57812"LSDEMO.SPR",DV,0:POKE780,0:POKE781,0:POKE782,62:SYS65493
70 SYS57812"SINUS ML 64",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
80 SYS57812"D.LSDEMO",DV,0:POKE780,0:POKE781,6:POKE782,64:SYS65493
90 :
100 :REM SETUP VARIABLES
110 :
120 VI=53248:PG=64:SA=PG*256:SP=248
130 POKEVI+32,0:POKEVI+33,0
140 :
150 :REM SETUP SINUS INTERRUPT
160 :
170 SYSSA
180 :
190 :REM POKE SPRITE DATA
200 :
210 FORI=0TO7
220 POKE2040+I,248+I:REM SPRITE POINTERS
230 POKEVI+39+I,I+1:REM SPRITE COLORS
240 POKEVI+37,14:POKEVI+38,15
250 NEXT
260 POKEVI+29,0:REM X SIZE
270 POKEVI+23,0:REM Y SIZE
280 POKEVI+28,255:REM MULTICOLOR ON
290 POKEVI+37,1:REM MULTICOLOR 1
300 POKEVI+38,2:REM MULTICOLOR 2
310 POKEVI+21,255:REM TURN SPRITES ON
320 :
330 :REM PROGRAM GOES HERE
340 :
350 PRINT"[147]":POKE214,21:PRINT:PRINT"[159]   [208]RESS [210], [211], [198], [216], [217], 1, 2, 3 OR [209]
355 [151]214,10:[153]:[129]I[178]0[164]7
356 [153][163]24)"FORSA+"6[170]I;[163]31)":    CMDCMDCMDCMDSYS"[194](SA[170]6[170]I):[130]
360 [151]198,0
370 [161]A$:[139]A$[178]""[167]370
372 [139]A$[178]"R"[167][129]I[178]0[164]7:[151]SA[170]6[170]I,[181]([187](1)[172]40):[130]:[137]355
374 [139]A$[178]"S"[167][129]I[178]0[164]3:[151]SA[170]6[170]I,[194](SA[170]6[170]I)[173]2:[130]:[137]355
376 [139]A$[178]"F"[167][129]I[178]0[164]3:[151]SA[170]6[170]I,([194](SA[170]6[170]I)[172]2[170]1)[175]255:[130]:[137]355
380 [139]A$[178]"X"[167]X[178]1[171]X:[151]VI[170]29,255[172]X:[137]370
390 [139]A$[178]"Y"[167]Y[178]1[171]Y:[151]VI[170]23,255[172]Y:[137]370
400 [139]A$[178]"1"[167]C1[178](C1[170]1)[175]15:[151]VI[170]37,C1:[137]370
410 [139]A$[178]"2"[167]C2[178](C2[170]1)[175]15:[151]VI[170]38,C2:[137]370
420 [139]A$[178]"3"[167]C3[178](C3[170]1)[175]15:[129]I[178]0[164]7:[151]VI[170]39[170]I,C3:[130]:[137]370
430 [139]A$[178]"Q"[167]480
440 [137]370
450 :
460 :[143] TURN OFF SINUS
470 :
480 [158]SA[170]3
490 :
500 :[143] RETURN TO LOADSTAR
510 :
520 [151]53281,0:[151]53280,0
525 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
530 [139]ER[179][177]63[167][128]
540 [151]646,[194](53281):[153]"LOADLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
550 [153]"RUN"
560 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:SINUS DEMO":[160]15:[148]"SINUS DEMO",8:[128]